(jka-compr-temp-name-template): Initialize using TMPDIR.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 02c32e4b70ea862f373bcaab8d4448b124f920b2..ef1a25f591a29645ab09ad78d194fb4ba08ac7c1 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -316,7 +316,8 @@ to keep: LEN chars starting BEG chars from the beginning."
 ;;; from ange-ftp.
 
 (defvar jka-compr-temp-name-template
-  "/tmp/jka-com"
+  (expand-file-name "jka-com"
+                   (or (getenv "TMPDIR") "/tmp/"))
   "Prefix added to all temp files created by jka-compr.
 There should be no more than seven characters after the final `/'")